home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / LISP04.ARJ / PJOIN.LSP < prev    next >
Text File  |  1992-02-23  |  1KB  |  40 lines
  1. (defun C:PJOIN (/ ECHO PT1 PTLL PTUR ENT LAYR OC TYPE ENT2 ENT3)
  2.         (setq ECHO (getvar "cmdecho"))
  3.         (setvar "cmdecho" 0)
  4.         (setq PTLL (getvar "vsmin")
  5.               PTUR (getvar "vsmax"))
  6.         (setq ENT  (entsel "Select object to become polyline:")
  7.               LAYR (cdr (assoc 8 (entget (car ENT))))
  8.               TYPE (cdr (assoc 0 (entget (car ENT))))
  9. )
  10. (command "layer" "s" LAYR "off" "*" "" "")
  11. (setq PT1 (cadr ENT))
  12. (if (= TYPE "POLYLINE")
  13.     (progn
  14.         (setq OC (cdr (assoc 70 (entget (car ENT)))))
  15.         (if (= OC 0)
  16.             (progn
  17.                (command "PEDIT" PT1 "J" "W" PTLL PTUR "" "")
  18.                (command "select" PT1 "")
  19.                (setq ENT2 (ssget PT1)
  20.                      ENT2 (entget (ssname ENT2 0))
  21.                      OC   (cdr (assoc 70 ENT2))
  22.                )
  23.             )
  24.          )
  25.      )
  26.      (progn
  27.          (command "PEDIT" PT1 "y" "J" "W" PTLL PTUR "" "")
  28.          (setq ENT3 (entget (entlast))
  29.                OC   (cdr (assoc 70 ENT3))
  30.          )
  31.      )
  32.    )
  33.    (command "Layer" "on" "*" "")
  34.    (setvar "cmdecho" ECHO)
  35.    (if (= OC 1)
  36.        (prompt "\nPolyline is closed\n")
  37.        (prompt "\Polyline is open...find break and try again\n")
  38.    )
  39.    (prin1)
  40. )